Testing plotly interactive tooltip
New cases map from deltas.rmd
library(zoo)
NY_region_palette.df <- NY_counties_regions %>%
dplyr::select(Region,Color) %>%
dplyr::distinct(Region,Color)
NY_region_palette <- setNames(as.character(NY_region_palette.df$Color), as.character(NY_region_palette.df$Region))
g <- covid_NY_TS_plot.cases %>%
group_by(Region, date) %>%
summarise(diff = sum(diff)) %>%
mutate(ma = c(NA, NA,rollmean(diff, 3, align = "right"))) %>%
ggplot(aes(date,
ma,
color = Region)) +
scale_color_manual(values=NY_region_palette) +
geom_line(size = 1) +
scale_y_continuous(
trans = "log10",
breaks = c(10,100,500,1000,5000,10000, 50000)
) +
scale_x_datetime(date_breaks = "1 week", date_minor_breaks = "1 day", date_labels = "%b %d") +
ylab("New Cases") +
xlab("Date") +
ggtitle("New York State NEW reported COVID-19 Cases") +
geom_vline(aes(xintercept=as_datetime("2020-03-20"), linetype="Gov. Cuomo issues stay-at-home order"), color = "black") +
scale_linetype_manual(name = "Events",
values = c(2),
guide = guide_legend(override.aes = list(color = c("black")))) +
NULL
g

Plotly test
ggplotly(g)
NaNs producedTransformation introduced infinite values in continuous y-axis
LS0tCnRpdGxlOiAiUGxvdGx5IHRlc3QiCmF1dGhvcjogIkpvc2UgRmlndWVyb2EiCmRhdGU6IDA1LzE3LzIwMjAKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGVzdGluZyBwbG90bHkgW2ludGVyYWN0aXZlIHRvb2x0aXBdKGh0dHBzOi8vcGxvdGx5LmNvbS9nZ3Bsb3QyL2ludGVyYWN0aXZlLXRvb2x0aXAvKQoKCmBgYHtyIHNldHVwLCBlY2hvPUZBTFNFLCBpbmNsdWRlPUZBTFNFfQppZighcmVxdWlyZSgicGxvdGx5IikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQogIGxpYnJhcnkocGxvdGx5KQp9CmtuaXRyOjpvcHRzX2tuaXQkc2V0KHJvb3QuZGlyID0gIi4uLyIpCmBgYAoKCmBgYHtyIGltcG9ydHMsIGVjaG89RkFMU0V9CnNvdXJjZSgibW9kdWxlcy9Tb3VyY2UuUiIpCnNvdXJjZSgibW9kdWxlcy9kYXRhX2xvYWQuUiIpCnNvdXJjZSgibW9kdWxlcy9wcmVwcm9jZXNzaW5nLlIiKQpgYGAKCk5ldyBjYXNlcyBtYXAgZnJvbSBkZWx0YXMucm1kCmBgYHtyfQpsaWJyYXJ5KHpvbykKTllfcmVnaW9uX3BhbGV0dGUuZGYgPC0gTllfY291bnRpZXNfcmVnaW9ucyAlPiUKZHBseXI6OnNlbGVjdChSZWdpb24sQ29sb3IpICU+JSAKZHBseXI6OmRpc3RpbmN0KFJlZ2lvbixDb2xvcikKCk5ZX3JlZ2lvbl9wYWxldHRlIDwtIHNldE5hbWVzKGFzLmNoYXJhY3RlcihOWV9yZWdpb25fcGFsZXR0ZS5kZiRDb2xvciksIGFzLmNoYXJhY3RlcihOWV9yZWdpb25fcGFsZXR0ZS5kZiRSZWdpb24pKQoKZyA8LSBjb3ZpZF9OWV9UU19wbG90LmNhc2VzICU+JQogIGdyb3VwX2J5KFJlZ2lvbiwgZGF0ZSkgJT4lCiAgc3VtbWFyaXNlKGRpZmYgPSBzdW0oZGlmZikpICU+JQogIG11dGF0ZShtYSA9IGMoTkEsIE5BLHJvbGxtZWFuKGRpZmYsIDMsIGFsaWduID0gInJpZ2h0IikpKSAlPiUKICAgICAgZ2dwbG90KGFlcyhkYXRlLCAKICAgICAgICAgICAgICAgICBtYSwgCiAgICAgICAgICAgICAgICAgY29sb3IgPSBSZWdpb24pKSArCiAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9TllfcmVnaW9uX3BhbGV0dGUpICsKICAgICAgZ2VvbV9saW5lKHNpemUgPSAxKSArCiAgICAgIHNjYWxlX3lfY29udGludW91cygKICAgICAgICB0cmFucyA9ICJsb2cxMCIsCiAgICAgICAgYnJlYWtzID0gYygxMCwxMDAsNTAwLDEwMDAsNTAwMCwxMDAwMCwgNTAwMDApCiAgICAgICkgKwogICAgICBzY2FsZV94X2RhdGV0aW1lKGRhdGVfYnJlYWtzID0gIjEgd2VlayIsIGRhdGVfbWlub3JfYnJlYWtzID0gIjEgZGF5IiwgZGF0ZV9sYWJlbHMgPSAiJWIgJWQiKSArCiAgICAgIHlsYWIoIk5ldyBDYXNlcyIpICsgCiAgICAgIHhsYWIoIkRhdGUiKSArCiAgICAgIGdndGl0bGUoIk5ldyBZb3JrIFN0YXRlIE5FVyByZXBvcnRlZCBDT1ZJRC0xOSBDYXNlcyIpICsKICAgICAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hc19kYXRldGltZSgiMjAyMC0wMy0yMCIpLCBsaW5ldHlwZT0iR292LiBDdW9tbyBpc3N1ZXMgc3RheS1hdC1ob21lIG9yZGVyIiksIGNvbG9yID0gImJsYWNrIikgKyAKICAgICAgc2NhbGVfbGluZXR5cGVfbWFudWFsKG5hbWUgPSAiRXZlbnRzIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICB2YWx1ZXMgPSBjKDIpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGd1aWRlID0gZ3VpZGVfbGVnZW5kKG92ZXJyaWRlLmFlcyA9IGxpc3QoY29sb3IgPSBjKCJibGFjayIpKSkpICsKICAgICAgTlVMTApnCmBgYAoKUGxvdGx5IHRlc3QKYGBge3J9CnAgPC0gZ2dwbG90bHkoZykKcApgYGAKCg==